home *** CD-ROM | disk | FTP | other *** search
/ Backpacker 2 (Sweden) / BackPacker 2 (Sweden) (Disc 1).7z / BackPacker 2 (Sweden) (Disc 1).bin / pc / instdata / install.dxr / Internal_423.ls < prev    next >
Encoding:
Text File  |  1997-01-01  |  525 b   |  14 lines
  1. on GetPackageSizes
  2.   global gFileObj, gFileList, gSrcPathList, gPackageSizesL
  3.   set gPackageSizesL to []
  4.   MakeFileList(1)
  5.   set packagesize to 0
  6.   set K to count(gFileList)
  7.   repeat with I = 1 to K
  8.     set sp to getAt(gSrcPathList, I) & getAt(gFileList, I)
  9.     set packagesize to packagesize + gFileObj(mFsMacFileSize, sp)
  10.   end repeat
  11.   append(gPackageSizesL, packagesize / 1024 / 1024.0)
  12.   set the text of field "PackageSizeInfo" to line 11 of field "Phrases" of castLib 2 && string(getAt(gPackageSizesL, 1)) && "Mb."
  13. end
  14.